home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (PO) / Nibble Volume 10, No. 08 (1989-08)(MindCraft Publishing)(Side A).zip / Nibble Volume 10, No. 08 (1989-08)(MindCraft Publishing)(Side A).po / COOL.OFF.bas < prev    next >
BASIC Source File  |  1996-12-24  |  700b  |  2 lines
  1. 10  HOME : VTAB 4: PRINT  SPC( 3)"O": PRINT  SPC( 2)"/|\": PRINT "___M": FOR V = 7 TO 16: PRINT "|": NEXT : FOR K = 2 TO 39: VTAB 16: HTAB K: PRINT ".";: NEXT : POKE 35,5: HOME : TEXT : VTAB 6: HTAB 4: PRINT  SPC( 1): POKE 32,5: POKE 33,3: FOR K = 3 TO 14: VTAB K: HTAB 1: PRINT "\O/ |  M": VTAB K -1: HTAB 1: PRINT  SPC( 3): SPEED= 230: NEXT : POKE 32,2
  2. 20  POKE 33,10: VTAB 14: PRINT "." SPC( 8)"." SPC( 2)"." SPC( 3)".": VTAB 16: HTAB 4: PRINT "\O/": VTAB 16: HTAB 4: PRINT  SPC( 3): VTAB 14: HTAB 1: PRINT  SPC( 18): VTAB 16: HTAB 4: PRINT "...": VTAB 20: FOR K = 1 TO 900: NEXT : SPEED= 100: TEXT : FOR K = 8 TO 37: VTAB 16: HTAB K: PRINT ".\O/": VTAB 16: HTAB K: PRINT "..O.": NEXT : SPEED= 255